home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / frasrc14.arc / FRACTINT.H < prev    next >
Text File  |  1990-08-02  |  16KB  |  455 lines
  1.  
  2. /* FRACTINT.H - common structures and values for the FRACTINT routines */
  3.  
  4. #define MAXPIXELS 2049        /* Maximum pixel count across/down the screen */
  5.  
  6. struct videoinfo {        /* All we need to know about a Video Adapter */
  7.     char    name[26];    /* Adapter name (IBM EGA, etc)        */
  8.     char    comment[26];    /* Comments (UNTESTED, etc)        */
  9.     int    videomodeax;    /* begin with INT 10H, AX=(this)    */
  10.     int    videomodebx;    /*        ...and BX=(this)    */
  11.     int    videomodecx;    /*        ...and CX=(this)    */
  12.     int    videomodedx;    /*        ...and DX=(this)    */
  13.                 /* NOTE:  IF AX==BX==CX==0, SEE BELOW    */
  14.     int    dotmode;    /* video access method used by asm code */
  15.                 /*    1 == BIOS 10H, AH=12,13 (SLOW)    */
  16.                 /*    2 == access like EGA/VGA    */
  17.                 /*    3 == access like MCGA        */
  18.                 /*    4 == Tseng-like  SuperVGA*256    */
  19.                 /*    5 == P'dise-like SuperVGA*256   */
  20.                 /*    6 == Vega-like     SuperVGA*256    */
  21.                 /*    7 == "Tweaked" IBM-VGA ...*256  */
  22.                 /*    8 == "Tweaked" SuperVGA ...*256 */
  23.                 /*    9 == Targa Format        */
  24.                 /*    10 = Hercules            */
  25.                 /*    11 = "disk video" (no screen)   */
  26.                 /*    12 = 8514/A            */
  27.                 /*    13 = CGA 320x200x4, 640x200x2    */
  28.                 /*    14 = Tandy 1000         */
  29.                 /*    15 = TRIDENT  SuperVGA*256    */
  30.                 /*    16 = Chips&Tech SuperVGA*256    */
  31.     int    xdots;        /* number of dots across the screen    */
  32.     int    ydots;        /* number of dots down the screen    */
  33.     int    colors;     /* number of colors available        */
  34.     };
  35.  
  36. /* NOTE:  if videomode[abc]x == 0, 'setvideomode' assumes it has an IBM (or
  37.     register compatible) adapter and tweaks the registers directly
  38.     to get one of the following modes (based on the value of videomodedx):
  39.  
  40.         1        704 x 528 x 16
  41.         2        720 x 540 x 16
  42.         3        736 x 552 x 16
  43.         4        752 x 564 x 16
  44.         5        768 x 576 x 16
  45.         6        784 x 588 x 16
  46.         7        800 x 600 x 16
  47.         8        360 x 480 x 16
  48.  
  49. */
  50.  
  51. #define INFO_ID     "Fractal"
  52. #define FRACTAL_INFO   struct fractal_info
  53.  
  54. struct fractal_info            /*  for saving data in GIF file     */
  55. {
  56.     char info_id[8];        /* Unique identifier for info block */
  57.     int iterations;
  58.     int fractal_type;        /* 0=Mandelbrot 1=Julia 2= ... */
  59.     double    xmin;
  60.     double    xmax;
  61.     double    ymin;
  62.     double    ymax;
  63.     double    creal;
  64.     double    cimag;
  65.     int    videomodeax;
  66.     int    videomodebx;
  67.     int    videomodecx;
  68.     int    videomodedx;
  69.     int    dotmode;
  70.     int    xdots;
  71.     int    ydots;
  72.     int colors;
  73.     int version;        /* used to be 'future[0]' */
  74.     float parm3;
  75.     float parm4;
  76.     float potential[3];
  77.     int rseed;
  78.     int rflag;
  79.     int biomorph;
  80.     int inside;
  81.     int logmap;
  82.     float invert[3];
  83.     int decomp[2];
  84.     int symmetry;
  85.     /* version 2 stuff */
  86.     int init3d[16];
  87.     int previewfactor;
  88.     int xtrans;
  89.     int ytrans;
  90.     int red_crop_left;
  91.     int red_crop_right;
  92.     int blue_crop_left;
  93.     int blue_crop_right;
  94.     int red_bright;
  95.     int blue_bright;
  96.     int xadjust;
  97.     int eyeseparation;
  98.     int glassestype;
  99.     /* version 3 stuff, release 13 */
  100.     int outside;
  101.     /* version 4 stuff, release 14 */
  102.     double x3rd;      /* 3rd corner */
  103.     double y3rd;
  104.     char stdcalcmode;      /* 1/2/g/b */
  105.     char useinitorbit;      /* init Mandelbrot orbit flag */
  106.     int calc_status;      /* resumable, finished, etc */
  107.     long tot_extend_len;  /* total length of extension blocks in .fra file */
  108.     int distest;
  109.     int floatflag;
  110.     int bailout;
  111.     long calctime;
  112.     unsigned char trigndx[4]; /* which trig functions selected */
  113.     int finattract;
  114.     double initorbit[2];  /* init Mandelbrot orbit values */
  115.     int periodicity;      /* periodicity checking */
  116.     int future[2];      /* for stuff we haven't thought of yet */
  117. };
  118.  
  119. #define MAXVIDEOMODES 100    /* maximum size of the video table */
  120.  
  121. #if defined(PUTTHEMHERE)    /* this MUST be defined ONLY in FRACTINT.C */
  122.  
  123. struct videoinfo videoentry;
  124.  
  125. int    maxvideomode;        /* size of the above list */
  126.  
  127. char *fkeys[] = {        /* Function Key names for display table */
  128.     /* "F1", Appropriated by the Help function */
  129.     "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10",
  130.     "SF1","SF2","SF3","SF4","SF5","SF6","SF7","SF8","SF9","SF10",
  131.     "CF1","CF2","CF3","CF4","CF5","CF6","CF7","CF8","CF9","CF10",
  132.     "AF1","AF2","AF3","AF4","AF5","AF6","AF7","AF8","AF9","AF10",
  133.     "Alt-1","Alt-2","Alt-3","Alt-4","Alt-5",
  134.     "Alt-6","Alt-7","Alt-8","Alt-9","Alt-0",
  135.     "Alt-Q","Alt-W","Alt-E","Alt-R","Alt-T",
  136.     "Alt-Y","Alt-U","Alt-I","Alt-O","Alt-P",
  137.     "Alt-A","Alt-S","Alt-D","Alt-F","Alt-G",
  138.     "Alt-H","Alt-J","Alt-K","Alt-L",
  139.     "Alt-Z","Alt-X","Alt-C","Alt-V","Alt-B","Alt-N","Alt-M",
  140.     "Alt--","Alt-=",
  141.     "Ctl-A","Ctl-B",        "Ctl-D","Ctl-E","Ctl-F","Ctl-G",
  142.     "Ctl-K","Ctl-L","Ctl-N","Ctl-O","Ctl-P",        "Ctl-R",
  143.         "Ctl-T","Ctl-U","Ctl-V","Ctl-W","Ctl-X","Ctl-Y","Ctl-Z",
  144.     "F11","F12","SF11","SF12","CF11","CF12","AF11","AF12",
  145.     "Alt-,","Alt-.","Alt-/","Alt-;","Alt-'","Alt-[","Alt-]","Alt-\\",
  146.     "Alt-`","A-Tab","A-Bks","A-Esc",
  147.     "END"};
  148.  
  149. int kbdkeys[] = {        /* Function Keystrokes for above names */
  150.     /* 1059,  Appropriated by the Help function */
  151.     1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068,
  152.     1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093,
  153.     1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103,
  154.     1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113,
  155.     1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129,
  156.     1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025,
  157.     1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038,
  158.     1044, 1045, 1046, 1047, 1048, 1049, 1050,
  159.     1130, 1131,
  160.        1,     2,         4,    5,     6,    7,
  161.       11,    12,   14,   15,   16,        18,
  162.         20,   21,   22,   23,    24,   25,   26,
  163.     1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140,
  164.     1051, 1052, 1053, 1039, 1040, 1026, 1027, 1043,
  165.     1041, 1165, 1014, 1001,
  166.     0};
  167.  
  168. #else
  169.  
  170. extern struct videoinfo videoentry;
  171. extern int maxvideomode;
  172.  
  173. #endif
  174.  
  175. #define NUMIFS      32     /* number of ifs functions in ifs array */
  176. #define IFSPARM    7     /* number of ifs parameters */
  177. #define IFS3DPARM 13     /* number of ifs 3D parameters */
  178.  
  179. /* defines for symmetry */
  180. #define  NOSYM        0
  181. #define  XAXIS_NOPARM  -1
  182. #define  XAXIS        1
  183. #define  YAXIS_NOPARM  -2
  184. #define  YAXIS        2
  185. #define  XYAXIS_NOPARM -3
  186. #define  XYAXIS     3
  187. #define  ORIGIN_NOPARM -4
  188. #define  ORIGIN     4
  189. #define  PI_SYM_NOPARM -5
  190. #define  PI_SYM     5
  191. #define  XAXIS_NOIMAG  -6
  192. #define  XAXIS_NOREAL    6
  193. #define  NOPLOT        99
  194. #define  SETUP_SYM    100
  195.  
  196. /* bitmask defines for fractalspecific flags */
  197. #define  NOZOOM     1    /* zoombox not allowed at all       */
  198. #define  NOGUESS    2    /* solid guessing not allowed       */
  199. #define  NOTRACE    4    /* boundary tracing not allowed       */
  200. #define  NOROTATE    8    /* zoombox rotate/stretch not allowed */
  201. #define  NORESUME      16    /* can't interrupt and resume         */
  202. #define  INFCALC       32    /* this type calculates forever       */
  203. #define  TRIG1           64    /* number of trig functions in formula*/
  204. #define  TRIG2          128
  205. #define  TRIG3          192
  206. #define  TRIG4          256
  207.  
  208. #define AUTOINVERT -123456.789
  209. extern float   far initifs[NUMIFS][IFSPARM];          /* IFS code values */
  210. extern float   far initifs3d[NUMIFS][IFS3DPARM];      /* IFS 3D code values */
  211.  
  212. struct fractalspecificstuff
  213. {
  214.    char  *name;             /* name of the fractal */
  215.    char  *param[4];            /* name of the parameters */
  216.    float paramvalue[4];     /* default parameter value */
  217.    int     flags;             /* constraints, bits defined above */
  218.    float xmin;                /* default XMIN corner */
  219.    float xmax;                /* default XMAX corner */
  220.    float ymin;                /* default YMIN corner */
  221.    float ymax;                /* default YMAX corner */
  222.    int     isinteger;            /* 1 if integerfractal, 0 otherwise */
  223.    int     tojulia;            /* mandel-to-julia switch */
  224.    int     tomandel;            /* julia-to-mandel switch */
  225.    int     tofloat;            /* integer-to-floating switch */
  226.    int     symmetry;            /* applicable symmetry logic
  227.                        0 = no symmetry
  228.                       -1 = y-axis symmetry (If No Params)
  229.                        1 = y-axis symmetry
  230.                       -2 = x-axis symmetry (No Parms)
  231.                        2 = x-axis symmetry
  232.                       -3 = y-axis AND x-axis (No Parms)
  233.                        3 = y-axis AND x-axis symmetry
  234.                       -4 = polar symmetry (No Parms)
  235.                        4 = polar symmetry
  236.                        5 = PI (sin/cos) symmetry
  237.                        6 = NEWTON (power) symmetry
  238.                                 */
  239.    int (*orbitcalc)();        /* function that calculates one orbit */
  240.    int (*per_pixel)();        /* once-per-pixel init */
  241.    int (*per_image)();        /* once-per-image setup */
  242.    int (*calctype)();        /* name of main fractal function */
  243.    int orbit_bailout;        /* usual bailout value for orbit calc */
  244. };
  245.  
  246. extern struct fractalspecificstuff far fractalspecific[];
  247.  
  248.  
  249. /*    help screens */
  250.  
  251. #define HELPAUTHORS    1
  252. #define HELPMAIN    2
  253. #define HELPCYCLING    3
  254. #define HELPXHAIR    4
  255. #define HELPCMDLINE    5
  256. #define HELPFRACTALS    6
  257. #define HELPVIDEO    7
  258. #define HELPMOREINFO    8
  259. #define HELPMOUSE    9
  260. #define HELPMENU    98
  261. #define HELPEXIT    99
  262.  
  263. #if defined(PUTTHEMHERE)    /* this MUST be defined ONLY in FRACTINT.C */
  264.  
  265. int helpmode;
  266.  
  267. #else
  268.  
  269. extern int helpmode;
  270.  
  271. #endif
  272.  
  273. #define DEFAULTFRACTALTYPE    ".gif"
  274. #define ALTERNATEFRACTALTYPE    ".fra"
  275.  
  276. #ifndef sqr
  277. #define sqr(x) ((x)*(x))
  278. #endif
  279.  
  280. #ifndef lsqr
  281. #define lsqr(x) (multiply((x),(x),bitshift))
  282. #endif
  283.  
  284. #define CMPLXmod(z)      (sqr((z).x)+sqr((z).y))
  285. #define CMPLXconj(z)    ((z).y =  -((z).y))
  286. #define LCMPLXmod(z)       (lsqr((z).x)+lsqr((z).y))
  287. #define LCMPLXconj(z)    ((z).y =  -((z).y))
  288.  
  289. typedef  struct complex CMPLX;
  290. typedef  struct lcomplex LCMPLX;
  291.  
  292. /* 3D stuff - formerly in 3d.h */
  293. #ifndef dot_product
  294. #define dot_product(v1,v2)  ((v1)[0]*(v2)[0]+(v1)[1]*(v2)[1]+(v1)[2]*(v2)[2])  /* TW 7-09-89 */
  295. #endif
  296.  
  297. #define    CMAX    4   /* maximum column (4 x 4 matrix) */
  298. #define    RMAX    4   /* maximum row     (4 x 4 matrix) */
  299. #define    DIM       3   /* number of dimensions */
  300.  
  301. typedef double MATRIX [RMAX] [CMAX];  /* matrix of doubles */
  302. typedef int   IMATRIX [RMAX] [CMAX];  /* matrix of ints    */
  303. typedef long  LMATRIX [RMAX] [CMAX];  /* matrix of longs   */
  304.  
  305. /* A MATRIX is used to describe a transformation from one coordinate
  306. system to another.  Multiple transformations may be concatenated by
  307. multiplying their transformation matrices. */
  308.  
  309. typedef double VECTOR [DIM];  /* vector of doubles */
  310. typedef int   IVECTOR [DIM];  /* vector of ints    */
  311. typedef long  LVECTOR [DIM];  /* vector of longs   */
  312.  
  313. /* A VECTOR is an array of three coordinates [x,y,z] representing magnitude
  314. and direction. A fourth dimension is assumed to always have the value 1, but
  315. is not in the data structure */
  316.  
  317.  
  318. #define PI 3.14159265358979323846
  319.  
  320. #define SPHERE      init3d[0]        /* sphere? 1 = yes, 0 = no  */
  321. #define ILLUMINE  (FILLTYPE>4)    /* illumination model        */
  322.  
  323. /* regular 3D */
  324. #define XROT      init3d[1]    /* rotate x-axis 60 degrees */
  325. #define YROT      init3d[2]    /* rotate y-axis 90 degrees */
  326. #define ZROT      init3d[3]    /* rotate x-axis  0 degrees */
  327. #define XSCALE      init3d[4]    /* scale x-axis, 90 percent */
  328. #define YSCALE      init3d[5]    /* scale y-axis, 90 percent */
  329.  
  330. /* sphere 3D */
  331. #define PHI1      init3d[1]    /* longitude start, 180     */
  332. #define PHI2      init3d[2]    /* longitude end ,   0        */
  333. #define THETA1      init3d[3]        /* latitude start,-90 degrees */
  334. #define THETA2      init3d[4]        /* latitude stop,  90 degrees */
  335. #define RADIUS      init3d[5]    /* should be user input */
  336.  
  337. /* common parameters */
  338. #define ROUGH      init3d[6]    /* scale z-axis, 30 percent */
  339. #define WATERLINE init3d[7]    /* water level            */
  340. #define FILLTYPE  init3d[8]    /* fill type            */
  341. #define ZVIEWER   init3d[9]    /* perspective view point   */
  342. #define XSHIFT      init3d[10]    /* x shift */
  343. #define YSHIFT      init3d[11]    /* y shift */
  344. #define XLIGHT      init3d[12]    /* x light vector coordinate */
  345. #define YLIGHT      init3d[13]    /* y light vector coordinate */
  346. #define ZLIGHT      init3d[14]    /* z light vector coordinate */
  347. #define LIGHTAVG  init3d[15]    /* number of points to average */
  348.  
  349. #ifndef TRUE
  350. #define TRUE 1
  351. #define FALSE 0
  352. #endif
  353.  
  354.  
  355. struct workliststuff    /* work list entry for std escape time engines */
  356. {
  357.     int xxstart;    /* screen window for this entry */
  358.     int xxstop;
  359.     int yystart;
  360.     int yystop;
  361.     int yybegin;    /* start row within window, for 2pass/ssg resume */
  362.     int sym;    /* if symmetry in window, prevents bad combines */
  363.     int pass;    /* for 2pass and solid guessing */
  364. };
  365. #define MAXCALCWORK 12
  366.  
  367. extern unsigned char trigndx[];
  368. extern void (*ltrig0)(), (*ltrig1)(), (*ltrig2)(), (*ltrig3)();
  369. extern void (*dtrig0)(), (*dtrig1)(), (*dtrig2)(), (*dtrig3)();
  370.  
  371. struct trig_funct_lst
  372. {
  373.     char *name;
  374.     void (*lfunct)();
  375.     void (*dfunct)();
  376. } ;
  377. extern struct trig_funct_lst trigfn[];
  378.  
  379. /* function prototypes */
  380.  
  381. #include <math.h>
  382.  
  383. extern    void   adjust(int, int, int, int, int, int);
  384. extern    void   buzzer(int);
  385. extern    int    calcfract(void);
  386. extern    int    calcmand(void);
  387. extern    int    check_key(void);
  388. extern    int    complex_mult(CMPLX, CMPLX, CMPLX *);
  389. extern    int    complex_div(CMPLX, CMPLX, CMPLX *);
  390. extern    int    complex_power(CMPLX, int, CMPLX *);
  391. extern    int    cross_product(double [], double [], double []);
  392. extern    void   drawbox(int);
  393. extern    unsigned int emmallocate(unsigned int);
  394. extern    void   emmclearpage(unsigned int, unsigned int);
  395. extern    void   emmdeallocate(unsigned int);
  396. extern    unsigned int emmgetfree(void);
  397. extern    void   emmgetpage(unsigned int, unsigned int);
  398. extern    unsigned char far *emmquery(void);
  399. extern far_strcpy( char far *, char far *);
  400. extern far_strcmp( char far *, char far *);
  401. extern far_stricmp(char far *, char far *);
  402. extern far_strcat( char far *, char far *);
  403. extern far_memset( char far *, char     , int);
  404. extern far_memcpy( char far *, char far *, int);
  405. extern far_memcmp( char far *, char far *, int);
  406. extern far_memicmp(char far *, char far *, int);
  407. extern    unsigned char far *farmemalloc(long);
  408. extern    void   farmemfree(unsigned char far *);
  409. extern    int    getakey(void);
  410. extern    int    getcolor(int, int);
  411. extern    int    has_8087(void );
  412. extern    void    helpmessage(unsigned char far *);
  413. extern    void   identity(MATRIX);
  414. extern    int    iplot_orbit(long, long, int);
  415. extern    int    Juliafp(void);
  416. extern    int    longvmultpersp(LVECTOR, LMATRIX, LVECTOR, LVECTOR, LVECTOR, int);
  417. extern    int    longpersp(LVECTOR, LVECTOR,int);
  418. extern    int    Lambda(void);
  419. extern    int    Lambdasine(void);
  420. extern    int    MainNewton(void);
  421. extern    void   mat_mul(MATRIX, MATRIX, MATRIX);
  422. extern    void   main(int, char *[]);
  423. extern    int    Mandelfp(void);
  424. extern    long   multiply(long, long, int);
  425. extern    long   divide(long, long, int);
  426. extern    int    Newton(void);
  427. extern    int    perspective(double *v);
  428. extern    int    plasma(void);
  429. extern    int    plot_orbit(double, double, int);
  430. extern    void    cdecl    Print_Screen(void);    /* MDS 7/1/89 */
  431. extern    void   putcolor(int, int, int);
  432. extern    void   scale(double, double, double, MATRIX);
  433. extern    int    scrub_orbit(void);
  434. extern    int    set_Plasma_palette(void);
  435. extern    void   setvideomode(int, int, int, int);
  436. extern    int    Sierpinski(void);
  437. extern    int    solidguess(void);
  438. extern    void   spindac(int, int);
  439. extern    void   subDivide(int, int, int, int);
  440. extern    void   symPIplot(int, int, int);
  441. extern    void   symPIplot2J(int, int, int);
  442. extern    void   symPIplot4J(int, int, int);
  443. extern    void   symplot2(int, int, int);
  444. extern    void   symplot2J(int, int, int);
  445. extern    void   symplot2Y(int, int, int);
  446. extern    void   symplot4(int, int, int);
  447. extern    void   noplot(int, int, int);
  448. extern    int    test(void);
  449. extern    void   trans(double, double, double, MATRIX);
  450. extern    int    vmult(VECTOR,MATRIX,VECTOR);
  451. extern    void   xrot(double, MATRIX);
  452. extern    void   yrot(double, MATRIX);
  453. extern    void   zrot(double, MATRIX);
  454.  
  455.